home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / WebSites / MailingLists / AMOSLIST.0799 / 000183_nobody_Fri Jul 30 21:09:59 1999.msg < prev    next >
Internet Message Format  |  1999-08-02  |  5KB
  1. Received: from onelist.com (pop.onelist.com [209.207.164.237])
  2.     by osf1.gmu.edu (8.8.8/8.8.8) with SMTP id VAA29397
  3.     for <mcox4@osf1.gmu.edu>; Fri, 30 Jul 1999 21:09:59 -0400 (EDT)
  4. Received: (qmail 8580 invoked by alias); 31 Jul 1999 01:09:55 -0000
  5. Received: (qmail 8574 invoked from network); 31 Jul 1999 01:09:55 -0000
  6. Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 31 Jul 1999 01:09:55 -0000
  7. Received: from enterprise.net (andrewcrowe@max04-089.enterprise.net [194.72.196.209]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id CAA14778 for <amos-list@onelist.com>; Sat, 31 Jul 1999 02:09:54 +0100 (GMT/BST)
  8. From: Andrew Crowe <andrewcrowe@enterprise.net>
  9. To: amos-list@onelist.com
  10. Date: Fri, 30 Jul 1999 23:04:12 +0000
  11. Message-ID: <yam7880.611.1197594504@mail.enterprise.net>
  12. In-Reply-To: <004b01bedacf$6da57d00$b22c63c3@default>
  13. X-Mailer: YAM 2.0 [040] AmigaOS E-Mail Client (c) 1995-1999 by Marcel Beck  http://www.yam.ch
  14. Mailing-List: list amos-list@onelist.com; contact amos-list-owner@onelist.com
  15. Delivered-To: mailing list amos-list@onelist.com
  16. Precedence: bulk
  17. List-Unsubscribe: <mailto:amos-list-unsubscribe@ONElist.com>
  18. Reply-to: amos-list@onelist.com
  19. Mime-Version: 1.0
  20. Content-type: multipart/mixed; boundary="BOUNDARY.1197594504.1"
  21. Subject: [amos-list] Re: Info PLEASE!
  22. Status: O
  23. X-Status: 
  24.  
  25. Warning: This is a message in MIME format. Your mail reader does not
  26. support MIME. Some parts of this message will be readable as plain text.
  27. To see the rest, you will need to upgrade your mail reader. Following are
  28. some URLs where you can find MIME-capable mail programs for common platforms:
  29.  
  30.   Amiga............: YAM          http://www.yam.ch/
  31.   Unix.............: Metamail     ftp://ftp.bellcore.com/nsb/
  32.   Windows/Macintosh: Eudora       http://www.qualcomm.com/
  33.  
  34. General info about MIME can be found at:
  35.  
  36. http://www.cis.ohio-state.edu/hypertext/faq/usenet/mail/mime-faq/top.html
  37.  
  38.  
  39. --BOUNDARY.1197594504.1
  40. Content-Type: text/plain; charset=iso-8859-1
  41. Content-Transfer-Encoding: quoted-printable
  42.  
  43. Hi Everybody,
  44.  
  45. >                could anyone tell me how to write a small program I can =
  46. put in the "user-start-up" that uses the clock as a variable.  For instan=
  47. ce =
  48.  
  49. > "IF TIME>(u) AND TIME< (uu): SAMPLAY (whatever): ENDIF
  50. > You know the sort of thing.
  51.  
  52.    ok, here you go. I adopted it from my countdown2000 program.
  53.  
  54. I suggest when you compile it you set it to have amos to back on booting =
  55. and cli programs to run in the background.
  56.  
  57.  
  58.    I havn't tested it, but in theory it works. (famous last words ;)
  59.  
  60. See ya.
  61. -- =
  62.  
  63.        Manta Soft  -  Amiga programing & web page designing
  64.      Http://members.tripod.com/~mantasoft/      ICQ: 21829166
  65.          Homepage updated 25/7/99 --- James Bond updated!
  66.   - ------------------- Quote of the day: -------------------- -
  67. Q: What is brown and sticky?
  68. A: A stick.
  69.  
  70. --BOUNDARY.1197594504.1
  71. Content-Type: text/plain; name="saytime.asc"
  72. Content-Disposition: attachment; filename="saytime.asc"
  73.  
  74. CHKDATE
  75.  
  76. 'Print At(0,0);DAT;" /";MON;" /";YEAR,HR;" :";MN;" :";SC;" " 
  77. Rem   Activate it if you want to show the time/date  
  78.  
  79.  
  80. Set Talk 0,0,100,150
  81.  
  82. If HR=>4 and HR<12
  83.    Say "Good morning dave"
  84. Else If HR=>12 and HR<18
  85.    Say "Good afternoon dave"
  86. Else If HR=>18 and HR<22
  87.    Say "good evening dave"
  88. Else 
  89.    Say "good night dave"
  90. End If 
  91.  
  92. Rem  Please feel free to change'em to your own samples etc.
  93.  
  94. End 
  95.  
  96.  
  97. Procedure CHKDATE
  98.    
  99.    Shared DAT,MON,YEAR,HR,MN,SC
  100.    
  101.    T$=Space$(12)
  102.    Dreg(1)=Varptr(T$)
  103.    A=Doscall(-192)
  104.    L2=Leek(Varptr(T$)+4)
  105.    L3=Leek(Varptr(T$)+8)
  106.    E1=L2/60 : E2=L2 mod 60 : E3=L3/50
  107.    E1=Val(Mid$(Str$(E1),2))
  108.    E2=Val(Mid$(Str$(E2),2))
  109.    E3=Val(Mid$(Str$(E3),2))
  110.    
  111.    'Print E1,E2,E3
  112.    
  113.    ML$="203232332323"
  114.    
  115.    'T$=Space$(12) 
  116.    'Dreg(1)=Varptr(T$)
  117.    'A=Doscall(-192) 
  118.    L1=Leek(Varptr(T$))
  119.    X=L1 : L=365
  120.    YEAR=1978 : MON=0
  121.    
  122.    While X=>L
  123.       Inc YEAR
  124.       Add X,-L
  125.       If(YEAR mod 4)=0 Then L=366 Else L=365
  126.    Wend 
  127.    
  128.    L=31
  129.    While X=>L
  130.       Inc MON
  131.       Add X,-L
  132.       L=Asc(Mid$(ML$,MON+1,1))-20
  133.       If L=28 and(YEAR mod 4)=0 Then Inc L
  134.    Wend 
  135.    
  136.    If MON>0
  137.       Restore MON
  138.       For A=1 To MON
  139.          Read Y
  140.          X=X+Y
  141.       Next 
  142.    End If 
  143.    MON=MON+1
  144.    
  145.    DAT=Y
  146.    HR=E1
  147.    MN=E2
  148.    SC=E3
  149.    
  150.    MON:
  151.    Data 31,28,31,30,31,30,31,31,30,31,30,31
  152.    
  153.    
  154. End Proc
  155.  
  156. --BOUNDARY.1197594504.1--
  157.  
  158.